home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / net / cnetjam10.lha / cnet / pfiles / fido / NetLogViewer < prev    next >
Text File  |  1994-06-06  |  1KB  |  40 lines
  1. /* NET-LogViewer */
  2.  
  3. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  4. tr=transmit ; se=sendstring ; gc=getchar ; gu=getuser ; gs=getscratch
  5.  
  6. START:
  7.     log.1 = "sysdata:log/JamMail.log"
  8.     log.2 = "sysdata:log/TrapList"
  9.     log.3 = "sysdata:log/Toss"
  10.     log.4 = "sysdata:log/poll"
  11.     log.5 = "sysdata:log/FreqMate"
  12.  
  13.     do i=1 to 5 ; f.i=exists(log.i) ; end i
  14.  
  15.     tr 'n1r1 CNet Amiga FIDO-NET Log Viewer r0n1'
  16.     tr '1. 'substr(' *',f.1+1,1)' JamMail Log'
  17.     tr '2. 'substr(' *',f.2+1,1)' TrapList Log'
  18.     tr '3. 'substr(' *',f.3+1,1)' CNetToss Log'
  19.     tr '4. 'substr(' *',f.4+1,1)' Poller2  Log'
  20.     tr '5. 'substr(' *',f.5+1,1)' FreqMate Logn1'
  21.     tr 'Q. Quit Log Viewern1'
  22.     se 'Choice: ' ; gc ; a=result ; if a<1 | a>5 then a='Q'
  23.     if a='Q' then do ; tr 'Quit' ; exit ; end
  24.  
  25.     if f.a=1 then tr substr(log.a,13)'n2q1*0'log.a'}'
  26.         else do ; tr substr(log.a,13)'n2<Log Empty>' ; signal START ; end
  27.  
  28.     se 'Delete Log? [No]: ' ; gc ; b=result
  29.     if b~='Y' then do ; tr 'No.' ; signal START ; end
  30.     tr 'Yes!n2Deleting...$odelete 'log.a'}h6ed!'
  31.   signal START
  32.  
  33. SYNTAX: ; ERROR: ; IOERR:
  34.     tr 'n2ce*** c9BOOM ce*** c9Error Detectedce!' ; tr 'c6ERc9:cb'rc' c6(ca'errortext(rc)'c6) @ cf'sigl
  35.     tr 'cdSysop has been notified...' ; logentry 'ER:'rc' ('errortext(rc)') @ 'sigl
  36.     logentry 'while using NetLogViewer' ; bufferflush
  37.   exit
  38.  
  39. /*                        < END OF FILE MARKER >                         */
  40.